home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ttedit / about.frm < prev    next >
Text File  |  1995-01-04  |  5KB  |  153 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   2550
  6.    ClientLeft      =   3165
  7.    ClientTop       =   5235
  8.    ClientWidth     =   5370
  9.    ClipControls    =   0   'False
  10.    Height          =   2955
  11.    Left            =   3105
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2550
  14.    ScaleWidth      =   5370
  15.    Top             =   4890
  16.    Visible         =   0   'False
  17.    Width           =   5490
  18.    Begin CommandButton btnOK 
  19.       Caption         =   "&OK"
  20.       Default         =   -1  'True
  21.       Height          =   375
  22.       Left            =   2160
  23.       TabIndex        =   4
  24.       Top             =   2100
  25.       Visible         =   0   'False
  26.       Width           =   1095
  27.    End
  28.    Begin Label Label1 
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "Compuserve: 72557,3632                         Internet: 72557.3632@Compuserve.com"
  31.       FontBold        =   0   'False
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Sans Serif"
  34.       FontSize        =   8.25
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       Height          =   435
  38.       Left            =   2280
  39.       TabIndex        =   5
  40.       Top             =   1440
  41.       Width           =   3015
  42.       WordWrap        =   -1  'True
  43.    End
  44.    Begin Label Label4 
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "All Rights Reserved. Legal use subject to conditions."
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   435
  54.       Left            =   2280
  55.       TabIndex        =   0
  56.       Top             =   1020
  57.       Width           =   2775
  58.       WordWrap        =   -1  'True
  59.    End
  60.    Begin Label lblApp_Title 
  61.       BackStyle       =   0  'Transparent
  62.       FontBold        =   -1  'True
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   12
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   255
  69.       Left            =   2280
  70.       TabIndex        =   3
  71.       Top             =   120
  72.       Width           =   3015
  73.    End
  74.    Begin Label lblVersion 
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "Version "
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "MS Sans Serif"
  80.       FontSize        =   8.25
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   255
  84.       Left            =   2280
  85.       TabIndex        =   2
  86.       Top             =   420
  87.       Width           =   3015
  88.    End
  89.    Begin Label Label3 
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "Copyright ⌐ 1994 Thorp Technology"
  92.       FontBold        =   0   'False
  93.       FontItalic      =   0   'False
  94.       FontName        =   "MS Sans Serif"
  95.       FontSize        =   8.25
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   255
  99.       Left            =   2280
  100.       TabIndex        =   1
  101.       Top             =   720
  102.       Width           =   3015
  103.    End
  104.    Begin Image logo 
  105.       BorderStyle     =   1  'Fixed Single
  106.       Enabled         =   0   'False
  107.       Height          =   1305
  108.       Left            =   120
  109.       Picture         =   ABOUT.FRX:0000
  110.       Top             =   180
  111.       Width           =   1980
  112.    End
  113.    Begin Line Line2 
  114.       BorderColor     =   &H00FFFFFF&
  115.       X1              =   150
  116.       X2              =   5220
  117.       Y1              =   1980
  118.       Y2              =   1980
  119.    End
  120.    Begin Line Line1 
  121.       BorderColor     =   &H00808080&
  122.       BorderWidth     =   3
  123.       X1              =   150
  124.       X2              =   5200
  125.       Y1              =   1965
  126.       Y2              =   1965
  127.    End
  128. End
  129. Option Explicit
  130.  
  131. Sub btnOK_Click ()
  132.     btnOk.Visible = False
  133.     Unload Me
  134. End Sub
  135.  
  136. Sub Form_Load ()
  137.     lblVersion = lblVersion & APP_VERSION_NUMBER
  138.     lblAPP_TITLE = APP_TITLE
  139.     If Forms.Count > 1 Then
  140.        Left = (MDI.Width - Width) / 2 + MDI.Left ' Center form horizontally.
  141.        Top = (MDI.Height - Height) / 2 + MDI.Top ' Center form vertically.
  142.     Else
  143.        Left = (Screen.Width - Width) / 2   ' Center form horizontally.
  144.        Top = (Screen.Height - Height) / 2  ' Center form vertically.
  145.     End If
  146. End Sub
  147.  
  148. Sub Form_Paint ()
  149.   Call Indent(logo)
  150.   Raiseform Me
  151. End Sub
  152.  
  153.